home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_6 / issue_03 / pipeline / Easter / FindEaster < prev    next >
Encoding:
Text File  |  1992-08-13  |  734 b   |  81 lines
  1. %OP%VS4.13 (28-Apr-92), Gerald L Fitton, R4000 5966 9904 9938 
  2. %OP%DP0
  3. %OP%IRY
  4. %OP%TPpm.
  5. %OP%PL66
  6. %OP%LS0
  7. %OP%HM0
  8. %OP%FM0
  9. %OP%BM0
  10. %OP%LM3
  11. %OP%PT0
  12. %OP%WC202,1014,180,884,0,0,0,0
  13. %CO:A,12,43%
  14.  
  15. %C%The Date of Easter
  16.  
  17. This document and its associated custom 
  18. function allows you to find the date of 
  19. Easter.  Position the cursor in slot A18, 
  20. type in the year (including the century - 
  21. eg 1997 and not just 97), tap <Return>.  
  22. The Date of Easter will appear in row 18.
  23.  
  24. Note that the change from the Julian to 
  25. the Gregorian calendar is taken as the 
  26. year 1582 and not 1752 (UK).
  27.  
  28. %C%Year
  29.  
  30. %V%%C%%D0%1492
  31. %CO:B,2,0%
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47. %CO:C,2,0%
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63. %CO:D,27,0%
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78. %R%Date of Easter
  79.  
  80. %V%%R%%D1%[c_Easter2]easter(A18)
  81.